|
|
|
|
|
|
|
need the test for booReturns because enforceFundsAvailability will check the deposit type anyway. Thus, you could modify the two method calls as follows: |
|
|
|
|
|
|
|
|
booReturns = _ localDeposit.enforceCashDepositLimit(localDeposit)
booReturns = _ localDeposit.enforceFundsAvailability(localDeposit) |
|
|
|
|
|
|
|
|
LISTING 8.3. THEBasicPersonalCheckingCLASS. |
|
|
|
 |
|
|
|
|
1: Private mvarClassDebugID As Variant 'local copy
2: 'Implements BankAccountProduct
3: Private m_pAccountType As String
4: Private mb_ProductID As Byte
5: 'local variable(s) to hold property value(s)
6: Private mvarAccountNumber As String 'local copy
7: Private mvarCurrentBalance As Single 'local copy
8:
9: Public Event OnWrongAccountNumber(argMsg As String)
10: Public Property Let CurrentBalance(ByVal vData As Single)
11: 'used when assigning a value to the property, on the left side of an
assignment.
12: 'Syntax: X.CurrentBalance = 5
13: mvarCurrentBalance = vData
14: End Property
15:
16:
17: Public Property Get CurrentBalance() As Single
18: 'used when retrieving value of a property, on the right side of an
assignment.
19: 'Syntax: Debug.Print X.CurrentBalance
20: CurrentBalance = mvarCurrentBalance
21: End Property
22:
23:
24: Public Property Let AccountNumber(ByVal vData As String)
25: 'used when assigning a value to the property, on the left side of an
assignment.
26: 'Syntax: X.AccountNumber = 5
27: mvarAccountNumber = vData
28: End Property
29:
30:
31: Public Property Get AccountNumber() As String
32: 'used when retrieving value of a property, on the right side of an
assignment.
33: 'Syntax: Debug.Print X.AccountNumber
34: AccountNumber = mvarAccountNumber
35: End Property
36:
37:
|
|
|
|
|
|